sub fastcall mc1000delayb(tvl1 as uinteger)
  asm
    ld b,h
    ld c,l
    call $C30E
    end asm
  end sub
